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This module takes strings of any supported class or dtype and 
deletes trailing spaces and tabs. 
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: ENVIRONMENT: User mode, AST level or not or mixed 
AUTHOR: R. Will, CREATION DATE: 19-Feb-79 
MODIFIED BY: 
i 
i 
i 
i 
i 
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i 
i 
i 
i 
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R. Will, 19-Feb-79: VERSION 01 
1-001 - Separate trom BASSEDIT, and write in B32 instead of MAR. 
RW 5-Nov-7 


1- § = Make optional argument word. RW 8-Nov-79 

- Str ng speedup, status from macros. RW 11-Jan-1980 

- Compute optional output length argument after the copy to the 

cesuss so thes the correct output string length is used. 

SBL 26-June-1981 
1-005 = Enhance to recognize additional classes of descriptors by 
using SSTRSGET_LEN_ADDR to extract the length and address 
of the first byte of data from : geseripter. Remove string 
interlocking code. RKR 24-AUG-1981 
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STRSTRIM 16 5 1984 01:50:13 AX-11 Bliss-32 V4.0-742 P 1 
-seo- g s = ss- Ve a 
1o=8e8-1 382 93:2 16 LIBRTL.SRCIJSTRTIRIM.B32;1 ” (1) 

; 1 1 MODULE STRSTRIM ( ! Delete trailing blanks and spaces 

3 § 008 IDENT = '1-007° ! File: STRTRIM.B32 Edit: RKR1007 

7% 005 es 

: § ; a BEGIN 

: 3 $8 ! leeneneeneeenreenenerenenerenererererentenereeeteetenenenennnnesnesnenenents 

M4 :* te 

Te | 10 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY « 

3 11 11. 1 !® DIGITAL EQUIPMENT €ORPORATION, MAYNARD, MASSACHUSETTS. * 

: \§ og ! os ALL RIGHTS RESERVED. rs 

: 14 0014 1 i* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 

; 15 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF ICENSE AND WITH THE * 

$ 16 8018 1 !® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

; 17 001 1 !@ COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

3 18 0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

3 } 484 : 7° TRANSFERRED. * 

: .* © 

3 1 0021 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

3 ¢ 88 ; 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ® 

3 Z 4 i : - CORPORATION. % 

; : * 

3 5 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

: ° + 8 : - SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

Py ; % 

3 8 0028 1 !« * 

3 ; 008 : | COHRNRERNSSERSHESESRRERENSENRSTENSETISSTSREseNNeTEESHSeeESENNseSeNETENNNeeRS 
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: 3 $j 

s 4 1 

; 5 5 : ABSTRACT: 

; «37 1 

3 8 1 

; 9 1 

; 0 1 

: 1 1 

3 ¢ 1 

; 1 

3 4 1 

3 5 1 

$ § 1 

3 1 

3 8 1 

; 9 1 

; 0 1 

3 1 1 

: § 1 

; 1 

; 6 1 

; 5 1 

3 6 1 

: 7 1 
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++ 
FACILITY: String support Library 
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yitte OP, 
TRSCOPY_R_RB : 


EXTERNAL LITERAL 
STRS_NORMAL ; 


STRSJSB_COPY_R ; 
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Been 19ae Voiabste Et Terte ose 
! signal errors 
! Routine to do the copy 


' successful completion 
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18-Sep-19 4 94:29:13 AX-11 Bliss-32 V4.0-74 
4 12:40:16 LIBRTL.SRCISTRTRIM.B32;1 


14-Sep-19 


GLOBAL ROUTINE STRSTRIM ( ! delete trailing spaces and tabs 
DEST_DESC, ! Pointer to destination descriptor 
SRC_BESC, ! Pointer to source descriptor 
DEST_LEN ! Length of destination 

):8 
lee 


FUNCTIONAL DESCRIPTION: 


This routine copies the input string to the output ee 
without copying the —. spaces and tabs. f the optional 
third argument is present, the Length of the copy is returned. 
FORMAL PARAMETERS: 
DEST_DESC.wt.dx pointer to destination string descriptor 
SRC_BESC.rt.dx pointer to source string descriptor 
DEST_LEN.wwu.r ength of trimmed source string 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 


SS$_NORMAL Success 
STRS_TRU Truncation occurred. Warning. 


SIDE EFFECTS: 


May gional: 
STRS_FATINTERR Fatal internal error 
STRS_ILLSTRCLA eeeeet (or unsupported) string class 
STRS$_INSVIRMEM Insufficient virtual memory for 


reallocation of dynamic string 


BEGIN 
BUILTIN 
NULLPARAME TER; ! check for optional arg 
LOCAL 
IN_LEN ' Length of Mg =: string 
IN-ADDR, i addr of Ist byte of 
! input string 
OUT_LEN, : Length of output 
' string 
OUT_ADDR, addr of Ist data byte 


of output string 
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' 
| 
1 Bliss-32 V4.0-74 
-007 LIBRTL.SRCISTRIRIM.B32;1 (3 | 
; 3 1377 RETURN_STATUS, ! status from | 
ry 1 A: i STRSCOPY_R_RB 
; is ! 4 COPY_LENGTH; ! Length td Be copied 
; 190 1381 MAP | 
; 191 1 § SRC_DESC : REF SSTRSDESCRIPTOR, 
: 138 1 DEST_DESC : REF Dh ag § gill 
3 \2? : : DEST_LEN : REF VECTOR (1, WORD, UNSIGNED); 1 make parameter a 
i it. é 
: 199 1 88 i compute Length and address of 1st data byte for input string and 
3 138 : 34 } signal fatal errors encountered. 
: 200 1391 SSTRSGET_LEN_ADDR ( SRC_DESC, IN_LEN, IN_ADDR ) ; 
: $02 1398 3 14 
: 08 1394 i Start at the end of the string and search backwards to find the first 
; 204 1395 ! character which is not a tab or a space. 
TBs BE 
; 207 1398 COPY_LENGTH = .IN_LEN; ! initialize the Length 
; 509 1406 WHILE .COPY_LENGTH NEQU 0 
: 210 1401 
. oe em 
; $18 1404 5 ((CHSRCHAR (CHSPLUS (.IN_ADDR, .COPY_LENGTH - 1)) 
Be 1S “Ladin 
: 216 1407 5 (CHSRCHAR (CHSPLUS (.IN_ADDR, .COPY_LENGTH - 1)) 
; sit 1e08 & EQL TAB)) 
; $39 Hh ; COPY_LENGTH = .COPY_LENGTH - 1 
: 221 141g § EXITLOOP; 
; $6 1413 2 ND; 
. eer 
3 225 1416 i Copy the trimmed string 
eee 
: 228 1419 RETURN_STATUS = STRSCOPY_R_R8 ( .DEST_DESC 
3 ¢3 1420 .COPY“LENGTH, 
: 30 14 1 -IN_ABDR ) ; | 
; % 14 : SSTRSSIGNAL_FATAL (RETURN_STATUS); ! signal fatal errors 
eo RG | 
: 235 14 § i If caller asked for length to be returned, return it. In this case, 
; 236 14 ! we have to use SSTRSGET_LEN_ADDR to extract its length. 
ee ye 
; 38 1430 IF NOT NULLPARAMETER (3) 
: 241 143 BEGIN | 
; 242 14 SSTRSGET_LEN_ADDR ( DEST_DESC, OUT_LEN, OUT_ADDR ) ; | 


STRSTRIM 
1-007 


43 DEST_LEN (0) 
44 END } 

45 

46 

47 


RETURN .RETURN_STATUS; 
END; 


58 000000006 00 
50 0 AC 
02 0 AO 
09 

53 60 
52 04 Ad 
68 

53 50 
52 51 
5A $3 
20 FF nag 
09 FF AA42 
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EC 

59 04 AC 
50 59 
000000006 00 

52 50 
10 32 
04 52 03 % 
52 

000000006 00 01 
03 6C 
25 

oc AC 

20 
02 03 AY 
09 
50 69 
51 04 Ag 
92 
50 9 
6 
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= MIN (.OUT_LEN, .COPY_LENGTH); 


OFFC 00000 
9E 0000 
00 30008 
91 00000 
1A 00011 
3¢ 00013 
DO 00016 
11 QOO1A 
16 QO01C 
DO OOO1E 
dO 44 1 
0 0024 
13 00027 
91 B80 9 
13 Q002E 
91 00030 
is 00035 
dD? 00037 
11 ti 
DO 00038 
70 0003F 
16 449k 
DO 0004 
E8 Booee 
Fo 004 
12 0005 
DD 0005 
FB Oper 
91 OO05E 
1F 00061 
rf 0063 
13 00066 
91 00068 
iA t5 
D6 90071 
11 00 i) 
DO 0007 
16 QOO7A 
D1 0007C 
15 0007F 
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!End of STRSTRIM 


RSTRIM 
-007 
$STOP, STRSCOPY_R 


STRSCODE,NOWRT, SHR, PIC,2 
1 
RSANALYZE_SDESC_R1, R11 
C_DESC, RO 

RO), #2 

0), IN_LEN 

ROS, IR_ADDR 
RSANALYZE_ SDESC_R1 


R1, R2 
IN_LEN, COPY_LENGTH 


7] (COPY_LENGTH)CIN_ADDRI, #32 
-1(COPY_LENGTH)CIN_ADDRJ, #9 
COPY_LENGTH 

DEST_DESC, R9 

STRSCOP R8 

RETURN STATUS 
Returns TATUS, 

#0, #37 SRETURN _STATUS, #4 
RETURN_ STATUS 


LIB$STOP 
AP), Fi 
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OUT_LEN 
35, OUT_ADDR 


Be 


RO 
RSANALYZE SDESC Rl 
, COPY_LERGT 


Liss-32 v4.0-74 
16 Et Tarte sresstarkin Boos 


$ NORMAL , STRSANALY TE -SDESC_R1 


RSTRIM, Save R2,R3,R4,R5,R6,R7,R8,RI,R10,-; 
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3; Size 140 sode + 0 data bytes 
3; Run “Time 705. 
3 je Fines 0:20. 
3; Lines/CPU Min: 1481 

; yonenne Pu Hies 35547 
; ry Ut 96 pages 
3; Compi often. Complete 


] 
é | 
STRSTRIM 5 PE -1984 01:50:13 AX-11 Bliss-32 v4.0-7 Pa 8) 
1-007 1er8ep-1o8e foseosie Ee terte sRedstarnincasoet a 
50 A DO 00081 MOV COPY_LENGTH, RO : | 
0c Pf 30 89 0084 9$ MOVW RO, @DEST_LEN : 
6 52 D0 00088 108: MOL RETURN STATUS, RO ; 1437 | 
4 00088 RET ; 1438) 
; Routine Size: 140 bytes, Routine Base: _STRSCODE + 0000 | 
HET ag mete | 
: 30 140) 'End of module 
3 és 1442 0 ELUDOM 
; PSECT SUMMARY 
; Name Bytes Attributes 
; _STRSCODE 140 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 
Recta ee Un.) heme > en ee, Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 4 0 581 00:00.8 
; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /NOTRACE/LIS=LIS$:STRTRIM/OBJ=OBJ$:STRTIRIM MSRC$:STRTIRIM/UPDATE=(ENH$: STRTRIM) 
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